home *** CD-ROM | disk | FTP | other *** search
- //---------------------------------------------------------------------------
- #include <vcl\vcl.h>
- #pragma hdrstop
-
- #include "Hallo5a.h"
- //---------------------------------------------------------------------------
- #pragma resource "*.dfm"
- TForm1 *Form1;
- //---------------------------------------------------------------------------
- __fastcall TForm1::TForm1(TComponent* Owner)
- : TForm(Owner)
- {
- }
- //---------------------------------------------------------------------------
- void __fastcall TForm1::ComboBox1Change(TObject *Sender)
- {
- if (ComboBox1->Text != "")
- Application->MessageBox ("Du hast also auch was zu sagen?", "", 1+32);
- switch (ComboBox1->ItemIndex)
- {
- case 0:
- Application->MessageBox ("Das ist ja toll!", "", 4+48);
- break;
- case 1:
- Application->MessageBox ("Das freut mich!", "", 4+48);
- break;
- case 2:
- Application->MessageBox ("Das geht ja noch!", "", 4+32);
- break;
- case 3:
- Application->MessageBox ("Das tut mir leid!", "", 4+48);
- break;
- case 4:
- Application->MessageBox ("Das ist ja schlimm!", "", 4+48);
- break;
- case 5:
- Application->MessageBox ("Wenn du meinst...", "", 1+16);
- }
- }
- //---------------------------------------------------------------------------